
sub main()
	dim s as string
	s = http.URLEncode("Welcome?+hose")
	msgbox(s)
	s = http.URLDecode(s)
	msgbox(s)
end sub

